home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / netz / iris / install-iris < prev    next >
Text File  |  1997-12-25  |  3KB  |  175 lines
  1.  
  2. (welcome)
  3.  
  4. (set #destdir
  5.     (askdir
  6.         (prompt "Where should the Iris drawer be created?")
  7.         (default @default-dest)
  8.         (help @askdir-help)
  9.     )
  10. )
  11. (set @default-dest #destdir)
  12. (set #parent-dir #destdir)
  13. (set #doc-dir
  14.     (askdir
  15.         (prompt "Where do you want to install the documentation (AmigaGuide)?")
  16.         (default (tackon #destdir "Iris"))
  17.         (newpath)
  18.         (help @askdir-help)
  19.     )
  20. )
  21. (set #icons
  22.     (askchoice
  23.         (prompt "Which icons do you want to install?")
  24.         (choices "Standard" "MagicWB")
  25.         (default 0)
  26.         (help @askchoice-help)
  27.     )
  28. )
  29.  
  30. (set #browsewww
  31.     (askfile
  32.         (prompt "Which WWW browser do you use?")
  33.         (help @askfile-help)
  34.         (default "BrowseWWWscripts/AWeb")
  35.     )
  36. )
  37. (if (not (patmatch "#?AWeb#?" #browsewww))
  38.     (message "Warning: the selected script has not been tested.")
  39. )
  40.  
  41. (set #ext
  42.     (askchoice
  43.         (prompt "Which version of the bgui.library do you want to install?")
  44.         (choices "Standard" "Extended (AmigaOS 3.0 and 68020 required)")
  45.         (default 0)
  46.         (help @askchoice-help)
  47.     )
  48. )
  49. (if (= #ext 0)
  50.     (set #bgui-lib "libs/bgui.library")
  51.     (set #bgui-lib "libs/bgui.library_e")
  52. )
  53. (set #lib-dest
  54.     (askdir
  55.         (prompt "Where should the bgui.library be installed?\nA version check will be performed.")
  56.         (help @askdir-help)
  57.         (default "LIBS:")
  58.     )
  59. )
  60. (set #classes-dest
  61.     (askdir
  62.         (prompt "Where should the class 'bgui_popbutton.gadget be installed?")
  63.         (help @askdir-help)
  64.         (default "LIBS:Gadgets/")
  65.         (newpath)
  66.     )
  67. )
  68.  
  69. (copylib
  70.     (prompt "Copying bgui.library...")
  71.     (confirm)
  72.     (source #bgui-lib)
  73.     (dest #lib-dest)
  74.     (newname "bgui.library")
  75.     (help @copylib-help)
  76. )
  77. (copylib
  78.     (prompt "Copying bgui_popbutton.gadget")
  79.     (confirm)
  80.     (source "classes/gadgets/bgui_popbutton.gadget")
  81.     (dest #classes-dest)
  82.     (help @copylib-help)
  83. )
  84.  
  85. (set #destdir (tackon #destdir "Iris"))
  86. (set @default-dest #destdir)
  87. (makedir #destdir)
  88. (set #buttons-dest (tackon #destdir "Buttons"))
  89. (makedir #buttons-dest)
  90. (makedir (tackon #destdir "Mail"))
  91. (copyfiles
  92.     (prompt "Copying program...")
  93.     (source "Iris")
  94.     (dest #destdir)
  95.     (infos)
  96.     (noposition)
  97. )
  98. (copyfiles
  99.     (prompt "Copying buttons...")
  100.     (source "Buttons/")
  101.     (dest #buttons-dest)
  102.     (infos)
  103.     (all)
  104. )
  105. (copyfiles
  106.     (prompt "Copying BrowseWWW.rexx script...")
  107.     (source #browsewww)
  108.     (dest #destdir)
  109.     (newname "BrowseWWW.rexx")
  110.     (infos)
  111.     (noposition)
  112. )
  113. (copyfiles
  114.     (prompt "Copying Poll.irx script...")
  115.     (source "Poll.irx")
  116.     (dest #destdir)
  117.     (infos)
  118.     (noposition)
  119. )
  120. (copyfiles
  121.     (prompt "Copying documentation...")
  122.     (source "Iris.guide")
  123.     (dest #doc-dir)
  124.     (infos)
  125.     (all)
  126. )
  127.  
  128. (if (= #icons 1)
  129.     (
  130.         (copyfiles
  131.             (prompt "Copying MagicWB style drawer icon...")
  132.             (source "MWB-Icons/Iris_drw.info")
  133.             (dest #parent-dir)
  134.             (newname "Iris.info")
  135.             (infos)
  136.             (noposition)
  137.         )
  138.         (copyfiles
  139.             (prompt "Copying MagicWB style program icon...")
  140.             (source "MWB-Icons/Iris.info")
  141.             (dest #destdir)
  142.             (infos)
  143.             (noposition)
  144.         )
  145.         (copyfiles
  146.             (prompt "Copying MagicWB style Buttons drawer icon...")
  147.             (source "MWB-Icons/Buttons.info")
  148.             (dest #destdir)
  149.             (infos)
  150.             (noposition)
  151.         )
  152.         (copyfiles
  153.             (prompt "Copying MagicWB style guide icon...")
  154.             (source "MWB-Icons/Iris.guide.info")
  155.             (dest #doc-dir)
  156.             (infos)
  157.             (noposition)
  158.         )
  159.         (copyfiles
  160.             (prompt "Copying MagicWB style Poll.irx icon...")
  161.             (source "MWB-Icons/Poll.irx.info")
  162.             (dest #destdir)
  163.             (infos)
  164.             (noposition)
  165.         )
  166.     )
  167.     (copyfiles
  168.         (prompt "Copying drawer icon...")
  169.         (source "/Iris.info")
  170.         (dest #parent-dir)
  171.         (infos)
  172.         (noposition)
  173.     )
  174. )
  175.